home *** CD-ROM | disk | FTP | other *** search
/ B Soft 2 / B-Soft_2_19xx_Maik__Mike_de_Side_A.d64 / running man (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  916b  |  44 lines
  1. 0 print"[147]joystick port ii":forx=1to1000:nextx
  2. 1 print"[147]":u=200:p=0
  3. 2 forx=0to39
  4. 3 an=1024:h=10:v=10:j=56321
  5. 4 pokean+x,102
  6. 5 nextx
  7. 6 fory=1to23
  8. 7 pokean+40*y,102
  9. 8 nexty
  10. 9 forx=0to39
  11. 10 poke1984+x,102
  12. 15 nextx
  13. 16 fort=0to23
  14. 17 poke1063+t*40,66
  15. 18 nextt
  16. 30 pokean+v*40+h,42
  17. 40 forx=1tou:nextx
  18. 50 pokean+v*40+h,81
  19. 60 forx=1tou:nextx
  20. 70 if peek(j)=254then v1=-1:h1=0:u=u-10:goto120
  21. 80 if peek(j)=253then v1=1:h1=0:u=u-10:goto 120
  22. 90 if peek(j)=251then v1=0:h1=-1:u=u-10:goto120
  23. 100 if peek(j)=247then v1=0:h1=1:u=u-10:goto120
  24. 120 v=v+v1:h=h+h1:ifv<1 then p=p+1
  25. 125 ifh<1 then p=p+1
  26. 130 if v<0 or v>24 or h<0 or h>39 then goto 150
  27. 140 goto 30
  28. 150 form=1to24
  29. 160 print"bang bang bang bang bang bang bang bang"
  30. 170 nextm
  31. 180 forx=1to1000:nextx
  32. 190 print"[147]":print:print"you have "p" points"
  33. 200 print:print"play again(y/n)?"
  34. 210 geta$:ifa$=""then210
  35. 220 ifa$="n"then new
  36. 222 ifa$="y"then goto230
  37. 224 ifa$<>"y"then goto 226
  38. 226 if a$<>"n" then goto 228
  39. 228 if a$<>"y" then goto 190
  40. 230 print"[147]":print"          written by mr.joker"
  41. 235 print:print"                     running man"
  42. 240 forr=1to1000:nextr
  43. 250 goto 1
  44.